home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / AmigaNorthThames / cgi-bin / subs.pl < prev    next >
Text File  |  2001-04-21  |  4KB  |  167 lines
  1. ######
  2. # Subs.pl for NewsDude
  3. #
  4. #  This script is Copyright (c) 2000 by Perlboy.org, Stuart Low all rights
  5. #  reserved.  It may be used under the terms detailed in 
  6. #  http://www.perlboy.org/scripts/license.html
  7. #
  8. #  YOU MAY MODIFY THIS SCRIPT PROVIDED YOU LEAVE THE ABOVE COPYRIGHT HEADING
  9. #  INTACT.
  10. #
  11. #  Other than that, enjoy the script. I did it mainly for a dude on
  12. #  alt.www.webmaster but also just for a kick on my last day of exams.
  13. # 
  14. #  If you want to get in touch, mail me at thedude@perlboy.org
  15. #  I WILL NOT ANSWER SUPPORT QUESTIONS THOUGH.
  16. #  This is mainly done due to the fact that I am a school student
  17. #  and therefore cannot afford to offer support for my free scripts.
  18. #
  19. #  Once again. Visit alt.www.webmaster there are MANY a soul who will
  20. #  happily help you.
  21. #
  22. #
  23. #  If you own a business and use this on your clients sites
  24. #  Could you please email me and tell me so that I can add your
  25. #  business to a list of Web Design firms which use my script
  26. #  Much appreciated
  27. #  
  28. #  Perlboy. (Stuart Low)
  29. #  thedude@perlboy.org
  30. #
  31. # ------------------------------------------------------------------
  32. ##############################################################################
  33.  
  34.  
  35. # Form Parsing.
  36.  
  37. sub FormParse
  38. {
  39.  
  40. read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); 
  41. if ($ENV{'QUERY_STRING'}) 
  42.      { 
  43.      $buffer = "$buffer\&$ENV{'QUERY_STRING'}"; 
  44.      } 
  45. @pairs = split(/&/,$buffer); 
  46.  
  47. foreach $pair (@pairs) 
  48.      { 
  49.      ($name,$value) = split(/=/,$pair); 
  50.      $value =~ tr/+/ /; 
  51.      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; 
  52.      $FORM{$name} = $value; 
  53.      } 
  54.  
  55. }
  56.  
  57.  
  58.  
  59. sub login_html {
  60.      print qq~
  61. <html>
  62. <head>
  63. <title>Admin Login</title>
  64. </head>
  65. <body bgcolor="#FFFFFF" BACKGROUND="http://www.amiganorththames.co.uk/Gfx/bg_stripe.co.uk">
  66.  
  67. <form method="POST" action="$admin_home">
  68. <BR><BR>
  69. <table border="0" cellpadding="1" cellspacing="1" width="372" ALIGN=CENTER
  70. BGCOLOR="#003060">
  71.  
  72. <tr>
  73. <td bgcolor="#004080" ALIGN=CENTER COLSPAN=3>
  74. <FONT COLOR="#FFFFFF">
  75. <b>Admin Login</B>
  76. </FONT>
  77. </td>
  78.  
  79. </tr>
  80.  
  81. <tr>
  82. <td bgcolor="#004080" WIDTH=100 ALIGN=RIGHT VALIGN=MIDDLE>
  83. <FONT COLOR="#FFFFFF">
  84. Username: 
  85. </FONT>
  86. </TD>
  87.  
  88. <TD bgcolor="#C0C0C0" ALIGN=CENTER>
  89.  <input type="text" name="username" size="20"><br>
  90. </TD>
  91.  
  92. <TD WIDTH=100 bgcolor="#004080">
  93. </TD>
  94.  
  95. </TR>
  96.  
  97. <TR>
  98. <TD bgcolor="#004080" ALIGN=RIGHT VALIGN=MIDDLE>
  99. <FONT COLOR="#FFFFFF">
  100. Password: 
  101. </FONT>
  102. </TD>
  103. <TD bgcolor="#C0C0C0" ALIGN=CENTER VALIGN=MIDDLE>
  104.  <input type="text" name="login_password" size="20">
  105. </TD>
  106.  
  107. <TD WIDTH=100 bgcolor="#004080">
  108. </TD>
  109.  
  110. </TR>
  111.  
  112. <TR>
  113. <TD COLSPAN=3 bgcolor="#004080"></TD>
  114. </TR>
  115.  
  116. <TR>
  117. <TD COLSPAN=3 "#004080" ALIGN=CENTER>
  118. <input type="submit" value="Login"></font></td>
  119. </TD>
  120. </tr>
  121. </table>
  122. </FORM>
  123.  
  124. </body>
  125. </html>
  126. ~;
  127. }
  128.  
  129.  
  130. sub error_html {
  131.      ($error)=@_;
  132.      print qq~
  133. <html>
  134. <head>
  135. <meta http-equiv="Content-Type"
  136. content="text/html; charset=iso-8859-1">
  137. <title>$sitename Admin</title>
  138. </head>
  139.  
  140. <body bgcolor="#000000" text="#FFFFFF" link="#FFFF00"
  141. vlink="#FFFF00" alink="#00FF00">
  142.  
  143. <table border="0">
  144.     <tr>
  145.         <td><p align="center"><font color="#FF0000" size="6"
  146.         face="Arial"><strong><u>$sitename</u></strong></font></p>
  147.         <p align="center"><font color="#FF0000" size="7">Error!</font></p>
  148.         </td>
  149.     </tr>
  150. </table>
  151. <p align="center">$error</p>
  152.  
  153. ~;
  154.      exit;
  155. }
  156.  
  157. sub Date 
  158. { 
  159. ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; 
  160. $year += "1900";
  161. $RealMonth = $mon + 1;
  162. $todays_date = "$mday\/$RealMonth\/$year"; 
  163. $todays_time = "$hour:$min";
  164. } 
  165.  
  166. 1;
  167.